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DIRECTORY 

AltoFileDefs: FROM 
ControlDefs: FROM 
DebugUtil ityDefs: F 
InlineDefs: FROM "i 
LoaderBcdUtilDefs: 
LoadStateDefs: FROM 
BcdAddress, BcdAr 
FileSegmentHandle 
SDDefs: FROM "sddef 
SegmentDefs: FROM " 
DeleteFileSegment 
FileSegmentHandle 
Unlock], 
SystemOefs: FROM "s 



"altofilodefs" USING [eofDA, SN], 
controldefs" USING [GFTIndex], 
ROM "debugutilitydefs" USING [MREAO], 
nlinedefs" USING [COPY], 
FROM "loaderbcdutildefs". 
"loadstatedefs" USING [ 
rayLength, Configlndex, ConfigNull, EnumerationDirection, 
, GFTIndex. LoadState, LoadStateGFT, Relocation], 
s" USING [SO, sGFTLength], 
segmentdefs" USING [ 

, FileHandle, FileHint, FileSegmentAddress, 
, InsertFile, NewFileSegment , Read, Swapin, SwapOut, 

ystemdefs" USING [Al locateHeapNode, FreeHeapNode] ; 



DEFINITIONS FROM LoadStateDefs; 

ExternalLoadState: PROGRAM 

IMPORTS DebugUtilityDefs, SegmentDefs, SystemDefs 

EXPORTS LoaderBcdUtilDefs, LoadStateDefs, DebugUtilityDefs - PUBLIC 

BEGIN 

state: SegmentDefs .FileSegmentHandle ^ NIL; 
loadstate: LoadState ^ NIL; 
gft: LoadStateGFT; 
nbcds: Configlndex; 

LoadStatelnvalid: SIGNAL « CODE; 

InputLoadState: PROCEDURE RETURNS [Configlndex] » 
BEGIN OPEN ControlDefs, SDDefs. SegmentDefs; 
i: GFTIndex; 

IF state » NIL THEN SIGNAL LoadStatelnvalid; 
Swapln[state]; 

loadstate ♦- FileSegmentAddress[state] ; 

gft <- DESCRIPTOR[loadstate+BcdArrayLength. DebugUtil ityDefs .MREAD[SD+sGFTLength]]; 
nbcds ♦- 0; 
FOR i IN [0. .LENGTH[gft]) 00 

IF gft[i].config » ConfigNull THEN nbcds ^ MAX[nbcds. gf t[i] ,conf ig]; 

ENDLOOP; 
nbcds <- nbcds + 1; 
RETURN[nbcds] 
END; 

ReleaseLoadState: PROCEDURE = 
BEGIN OPEN SegmentDefs; 
IF -state. swappedin THEN RETURN; 
Unlock[state] ; 
IF state. lock « THEN 

BEGIN 

SwapOut[state] ; 

loadstate <- NIL; 

nbcds <- 0; 

END; 
END; 

MapConfigToReal : PROCEDURE [cgfi: GFTIndex, config: Configlndex] RETURNS [rgfi: GFTIndex] 
BEGIN 

IF cgfi - THEN RETURN[0]; 
FOR rgfi IN [0. . LENGTH[gf t] ) DO 

IF gft[rgfi] « [config. cgfi] THEN RETURN [rgfi]; 

ENDLOOP; 
RETURN[0]; 
END; 



MapRealToConfig: PROCEDURE [rgfi: GFTIndex] RETURNS [GFTIndex. Configlndex] 
BEGIN 

RETURN[gft[rgfi].gfi. gft[ rgfi] . config] ; 
END; 
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InitializeRelocation: PROCEDURE [config: Conf iglndex] RETURNS [rel: Relocation] « 
BEGIN 

max: CARDINAL ♦- 0; 
i: GFTIndex; 
FOR i IN [O..LENGTH[gft]) DO 

IF gft[i]. config ■ config THEN max ♦- MAX[max, gft[i3.gfi]; 

ENDLOOP; 
rel ♦- DESCRIPTOR[SystemDefs.AnocateHeapNode[max+l], max+1]; 
rel[0] ♦- 0; 

In1ineDefs.C0PY[from: BASE[rel3, to: BASE[re1]+l, nwords: max]; 
FOR i IN [O..LENGTH[gft]) DO 

IF gft[i]. config - config THEN r8l[gf t[i] .gf i] ♦- i; 

ENDLOOP; 
END; 

ReleaseRelocation: PROCEDURE [rel: Relocation] ■ 
BEGIN 

SystemDefs.FreeHeapNode[BASE[re1]]; 
END; 

BcdSegFromLoadState: PROCEDURE [bed: Configlndex] RETURNS [seg: FileSegmentHandle] ■ 
BEGIN OPEN SegmentDefs, b: loadstate .bcds[bcd] ; 
bcdfile: FileHandle; 

NullSN: AUoFileDefs.SN - [1 ,0 , 1 .17777B, 177777B]; 
IF b.fp. serial - NullSN THEN b.fp ^ state. file.fp; 
bcdfile <- InsertFile[@b.fp. Read]; 

seg <- NewFileSegment[bcdf ile, b.base, b. pages, Read]; 
seg. class ^ other; 
IF b.da # AltoFileDefs.eofDA THEN 
WITH s: seg SELECT FROM 

disk "> s.hint <- SegmentDefs .FileHint[b .da, b.base]; 

ENDCASE; 
END; 

UpdateLoadStateDA: PROCEDURE [bcdseg: FileSegmentHandle] - 
BEGIN OPEN SegmentDefs; 

FindSeg: PROCEDURE [c: Configlndex, b: BcdAddress] RETURNS [BOOLEAN] - 
BEGIN 

IF b.base » bcdseg. base AND b. pages » bcdseg. pages AND 
b.fp " bcdseg. file.fp THEN 
BEGIN 
WITH s: bcdseg SELECT FROM 

disk »> IF s.hint. da # AltoFileDefs.eofDA THEN b.da ^ s.hint. da; 
ENDCASE; 
RETURN[TRUE]; 
END; 
RETURN[FALSE]; 
END; 
IF loadstate - NIL THEN RETURN; -- loadstate not in 
[] ♦- EnumerateLoadStateBcds[recentf irst, FindSeg]; 
RETURN 
END; 

EnumerateLoadStateGFT: PROCEDURE [ 
proc: PROCEDURE [GFTIndex, GFTIndex, Configlndex] RETURNS [BOOLEAN]] 
RETURNS [GFTIndex] » 
BEGIN 

i: GFTIndex; 
FOR i IN [O..LENGTH[gft]) DO 

IF proc[i. gft[i].gfi, gf t[i] .conf ig] THEN RETURN[i]; 
ENDLOOP; 
RETURN[0] 
END; 

EnumerateLoadStateBcds : PROCEDURE [dir: EnumerationDirection, 
proc: PROCEDURE [Configlndex, BcdAddress] RETURNS [BOOLEAN]] 
RETURNS [Configlndex, BcdAddress] » 
BEGIN 

i: CARDINAL; 
SELECT dir FROM 
recentfirst ■> 

FOR i DECREASING IN [0..nbcds) DO 

IF proc[i, ©loadstate. bcds[i]] THEN RETURN[ i , ©loadstate. bcds[i]] ; 
ENDLOOP; 
recentlast •> 
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FOR i IN [0. .nbcds) DO 

IF proc[i. 01oadstat0.bcds[i]] THEN RETURN[i, 01oadstate.bcds[i]] ; 
ENDLOOP; 
ENDCASE; 
RETURN[ConfigNun, NIL] 
END; 

SetLoadState: PROCEDURE [stateseg: FileSegmentHandle] ■ 
BEGIN 

state ♦• stateseg; 
END; 

GetLoadState: PROCEDURE RETURNS [FileSegmentHandle] ■ 
BEGIN 

RETURN[state]; 
END; 

ReleaseBcdSeg: PROCEDURE [bcdseg: SegmentDefs . FileSegmentHandle] - 
BEGIN OPEN SegmentDefs; 
Up dateLoadSt at eDA[ bcdseg]; 
Unlock[bcdseg]; 

IF bcdseg. lock ■ THEN DeleteFileSegment[bcdseg]; 
END; 

END... 



